home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / m_to_r / nosc / pad1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  2.8 KB  |  127 lines
  1. unit Pad1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Menus, NOSC;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     NOSC1: TNOSC;
  12.     MainMenu1: TMainMenu;
  13.     File1: TMenuItem;
  14.     New1: TMenuItem;
  15.     Open1: TMenuItem;
  16.     Save1: TMenuItem;
  17.     SaveAs1: TMenuItem;
  18.     N1: TMenuItem;
  19.     Exit1: TMenuItem;
  20.     Edit1: TMenuItem;
  21.     Cut1: TMenuItem;
  22.     Copy1: TMenuItem;
  23.     Paste1: TMenuItem;
  24.     SelectAll1: TMenuItem;
  25.     N2: TMenuItem;
  26.     WordWrap1: TMenuItem;
  27.     Delete1: TMenuItem;
  28.     Memo1: TMemo;
  29.     procedure Exit1Click(Sender: TObject);
  30.     procedure Cut1Click(Sender: TObject);
  31.     procedure Copy1Click(Sender: TObject);
  32.     procedure Paste1Click(Sender: TObject);
  33.     procedure Delete1Click(Sender: TObject);
  34.     procedure SelectAll1Click(Sender: TObject);
  35.     procedure WordWrap1Click(Sender: TObject);
  36.     procedure NOSC1New(Sender: TObject; var Proceed: Boolean);
  37.     procedure NOSC1Open(Sender: TObject; var Proceed: Boolean);
  38.     procedure NOSC1Save(Sender: TObject; var Proceed: Boolean);
  39.     procedure NOSC1SaveQuery(Sender: TObject; var Proceed: Boolean);
  40.   private
  41.     { Private declarations }
  42.   public
  43.     { Public declarations }
  44.   end;
  45.  
  46. var
  47.   Form1: TForm1;
  48.  
  49. implementation
  50.  
  51. {$R *.DFM}
  52.  
  53. procedure TForm1.NOSC1New(Sender: TObject; var Proceed: Boolean);
  54. begin
  55.   Memo1.Clear;
  56.   Memo1.Modified := False;
  57. end;
  58.  
  59. procedure TForm1.NOSC1Open(Sender: TObject; var Proceed: Boolean);
  60. begin
  61.   try
  62.     Memo1.Lines.LoadFromFile(NOSC1.FileName);
  63.     Memo1.Modified := False;
  64.   except
  65.     Proceed := False;
  66.   end;
  67. end;
  68.  
  69. procedure TForm1.NOSC1Save(Sender: TObject; var Proceed: Boolean);
  70. begin
  71.   try
  72.     Memo1.Lines.SaveToFile(NOSC1.FileName);
  73.     Memo1.Modified := False;
  74.   except
  75.     Proceed := False;
  76.   end;
  77. end;
  78.  
  79. procedure TForm1.NOSC1SaveQuery(Sender: TObject; var Proceed: Boolean);
  80. begin
  81.   if Memo1.Modified then
  82.     Proceed := MessageDlg(NOSC1.FileName + ' changed. Save?',
  83.         mtConfirmation, [mbYes, mbNo], 0) = mrYes
  84.   else
  85.     Proceed := False;
  86. end;
  87.  
  88. procedure TForm1.Exit1Click(Sender: TObject);
  89. begin
  90.   Close;
  91. end;
  92.  
  93. procedure TForm1.Cut1Click(Sender: TObject);
  94. begin
  95.   Memo1.CutToClipBoard;
  96. end;
  97.  
  98. procedure TForm1.Copy1Click(Sender: TObject);
  99. begin
  100.   Memo1.CopyToClipBoard;
  101. end;
  102.  
  103. procedure TForm1.Paste1Click(Sender: TObject);
  104. begin
  105.   Memo1.PasteFromClipBoard;
  106. end;
  107.  
  108. procedure TForm1.Delete1Click(Sender: TObject);
  109. begin
  110.   Memo1.ClearSelection;
  111. end;
  112.  
  113. procedure TForm1.SelectAll1Click(Sender: TObject);
  114. begin
  115.   Memo1.SelectAll;
  116. end;
  117.  
  118. procedure TForm1.WordWrap1Click(Sender: TObject);
  119. begin
  120.   Memo1.WordWrap := not Memo1.WordWrap;
  121.   WordWrap1.Checked := Memo1.WordWrap;
  122.   if Memo1.WordWrap then Memo1.ScrollBars := ssVertical
  123.   else Memo1.ScrollBars := ssBoth;
  124. end;
  125.  
  126. end.
  127.